0 POKE53282,1:POKE53283,4
10 PRINT"[147]BITTECHARACTERDISK EINLEGEN
20 [161] A$:[139] A$[178]""[167] 20
30 [143] ***************************
40 [143] *  BARDS TALE III EDITOR  *
50 [143] *                         *
60 [143] *          VON            *
70 [143] *     MICHAEL GOETZE      *
80 [143] *                         *
90 [143] ***************************
100 [153]"LOADPRINT#OR=TAN=^  ORTAN=TAN^         ^' ";
110 [153]"OR=TAN^   ^  OR===^";
120 [153]"PRINT# (null) -^OR^  -TAN>^ORTAN^OR=TAN=TAN<  ";
130 [153]" (null)  ORTAN^(null)OR^ (null)(null)(null) ";
140 [153]"PRINT# (null) (null)(null)(null)EXP  (null)  (null)(null) (null)(null)(null) (null) (null) (null)";
150 [153]" (null)  (null) (null)(null)(null)EXP (null)(null)(null) ";
160 [153]"PRINT# EXP EXP/>EXP/TAN>TANTAN>>TAN>EXPEXP /TANEXP  ";
170 [153]"/>TANTAN>TAN>>>EXP/>>>EXP"
180 [137]3260
190 [151]53280,0:[151]53281,0:[151]53272,23:[151]53270,24
200 [134]N%(256),G$(300),GT%(12),RA$(10),KL$(30),SR%,IQ%,DX%,CN%,LK%,RA%,KL%,GS%,EX
210 [134]GE,LM%,LV%,SM%,HM%,SP%,HP%,N$(18,2)
220 [129]I[178]0[164]275:[135]G$(I):[130]:[143] GEGENSTAENDE
230 [129]I[178]0[164]6:[135]RA$(I):[130]:[143] RASSEN
240 [129]I[178]0[164]25:[135]KL$(I):[130]:[143] KLASSEN
250 [142]
260 [143] CHARAKTER EINLESEN
270 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
280 [153]"(null)**********************************(null)"
290 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
300 [153]"ONON";:[159]1,8,15
310 [159]2,8,2,"#":[129]S[178]1[164]17:[141]1070:[143] SECTOR EINLESEN
320 [153]"PRINT#*WAIT";:NA$[178]"":[152]1,"B-P:"2,0:[129]P[178]0[164]15:[141]1080:NA$[178]NA$[170]A$:[130]P:WW[178]0
330 [141]350:[153]"PRINT#*WAIT";:NA$[178]"":[152]1,"B-P:"2,128:[129]P[178]0[164]15:[141]1080:NA$[178]NA$[170]A$:[130]P
340 WW[178]1:[141]350:[130]S:[142]
350 NN$[178]"":[129]P[178]1[164]16
360 Q[178][198]([202](NA$,P,1)):[139]Q[177]218[167]Q[178]Q[171]64
370 [139]Q[178]170[167]Q[178]138
380 [139]Q[178]191[167]Q[178]128
390 [139]Q[177]127[167]Q[178]Q[171]128[170]32
400 NN$[178]NN$[170][199](Q)
410 [130]P:N$(S,WW)[178]NN$:[142]
420 [143] CHARACTER VERAENDERN
430 [153]"LOAD";:NA$[178]"":[129]P[178]0[164]15:NA$[178]NA$[170][199](N%(I[170]P)):[130]P
440 SR%[178]N%(I[170]16):IQ%[178]N%(I[170]17)
450 DX%[178]N%(I[170]18):CN%[178]N%(I[170]19)
460 LK%[178]N%(I[170]20):RA%[178]N%(I[170]42)
470 KL%[178]N%(I[170]41):GS%[178]N%(I[170]43)
480 EX[178]N%(I[170]21):EX[178]EX[170]((N%(I[170]22))[172]256)
490 EX[178]EX[170](N%(I[170]23))[172]65536
500 EX[178]EX[170]((((N%(I[170]24))[172]256)[172]256)[172]256)
510 GE[178](N%(I[170]25)):GE[178]GE[170]((N%(I[170]26))[172]256)
520 GE[178]GE[170](N%(I[170]27))[172]65536
530 GE[178]GE[170]((((N%(I[170]28))[172]256)[172]256)[172]256)
540 LM%[178]N%(I[170]29):LM%[178]LM%[170]N%(I[170]30)[172]256
550 LV%[178]N%(I[170]31):LV%[178]LV%[170]N%(I[170]32)[172]256
560 SM%[178]N%(I[170]37):SM%[178]SM%[170]N%(I[170]38)[172]256
570 HM%[178]N%(I[170]33):HM%[178]HM%[170]N%(I[170]34)[172]256
580 SP%[178]N%(I[170]39):SP%[178]SP%[170]N%(I[170]40)[172]256
590 HP%[178]N%(I[170]35):HP%[178]HP%[170]N%(I[170]36)[172]256
600 [129]P[178]1[164]12:GT%(P)[178]N%(I[170]46[170]P[172]3):[130]P
620 [153]"LOADCONT[ATN] (null)AME:LIST";NA$
630 [129]P[178]0[164]15:N%(I[170]P)[178][194](1033[170]P):[130]
640 [153]"CONT[PEEK] (null)ASSE:LIST";RA$(RA%)
650 [153]"CONT[LEN] (null)LASSE:LIST";KL$(KL%[170]13[172]GS%)
660 [153]"CONT[STR$] LEN(null):LIST";CN%
670 [153]"CONT[VAL] STR$(null):LIST";DX%
680 [153]"CONT[ASC] RIGHT$(null):LIST";IQ%
690 [153]"CONT[CHR$] (null)(null):LIST";LK%
700 [153]"CONT[LEFT$] (null)(null):LIST";SR%
710 [153]"CONT[RIGHT$] VALXPERIENCE:LIST";EX
720 [153]"CONT[MID$] CHR$OLD      :LIST";GE
730 [153]"CONT[(null)] (null)EVE